setwd("C:/Users/Holger Reulen/Desktop/introduction-to-r-summer-2013/projekt_kreuztabellen/")

source("nam.R")
nam(bundesliga_12_13)
debug(nam)
?debug